home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 05 / 1 / DISK0510.ZIP / MODESW < prev    next >
Text File  |  1985-08-08  |  256b  |  11 lines
  1. PROGRAM MODESW;
  2. VAR
  3.   MODE:INTEGER;
  4. BEGIN
  5.   REPEAT
  6.     WRITE('enter mode:');
  7.     READLN(MODE);
  8.     IF MODE <> 8 THEN SETMODE(MODE);
  9.   UNTIL MODE = 8;
  10. END.
  11.